home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_8 / issue_02 / pipelinez / Stamps / StampNos < prev   
Encoding:
Text File  |  1994-08-24  |  2.7 KB  |  200 lines
  1. %OP%TNN
  2. %OP%DP0
  3. %OP%GRY
  4. %OP%LM3
  5. %OP%PZA1A1
  6. %OP%PZA3O3
  7. %OP%PZA6O6
  8. %OP%PZC1D1
  9. %CO:A,16,72%Postage, p.:                                                      
  10.  
  11. Stamp value, p.
  12. No. of stamps
  13.  
  14. Stamp value, p.
  15. No. of stamps
  16.  
  17. Workspace only: 
  18. %CO:B,4,60%%V%%R%21
  19.  
  20. %V%%R%500
  21. %V%%R%if(B10>0,B10,"    ")
  22.  
  23. %V%%R%29
  24. %V%%R%if(B13>0,B13,"    ")
  25.  
  26. %V%%R%B1
  27. %V%%R%int(B9/B3)
  28.  
  29. %V%%R%int(mod(O9,O3)+0.5)
  30. %V%%R%int(B12/B6)
  31. %CO:C,4,54%Enter amount of postage (pence) in slot B1   
  32.  
  33. %V%%R%200
  34. %V%%R%if(C10>0,C10,"    ")
  35.  
  36. %V%%R%28
  37. %V%%R%if(C13>0,C13,"    ")
  38.  
  39. %V%%R%int(mod(B9,B3)+0.5)
  40. %V%%R%int(C9/C3)
  41.  
  42. %V%%R%int(mod(B12,B6)+0.5)
  43. %V%%R%int(C12/C6)
  44. %CO:D,4,50%        
  45.  
  46. %V%%R%150
  47. %V%%R%if(D10>0,D10,"    ")
  48.  
  49. %V%%R%25
  50. %V%%R%if(D13>0,D13,"    ")
  51.  
  52. %V%%R%int(mod(C9,C3)+0.5)
  53. %V%%R%int(D9/D3)
  54.  
  55. %V%%R%int(mod(C12,C6)+0.5)
  56. %V%%R%int(D12/D6)
  57. %CO:E,4,46%
  58.  
  59. %V%%R%100
  60. %V%%R%if(E10>0,E10,"    ")
  61.  
  62. %V%%R%24
  63. %V%%R%if(E13>0,E13,"    ")
  64.  
  65. %V%%R%int(mod(D9,D3)+0.5)
  66. %V%%R%int(E9/E3)
  67.  
  68. %V%%R%int(mod(D12,D6)+0.5)
  69. %V%%R%int(E12/E6)
  70. %CO:F,4,42%
  71.  
  72. %V%%R%75
  73. %V%%R%if(F10>0,F10,"    ")
  74.  
  75. %V%%R%20
  76. %V%%R%if(F13>0,F13,"    ")
  77.  
  78. %V%%R%int(mod(E9,E3)+0.5)
  79. %V%%R%int(F9/F3)
  80.  
  81. %V%%R%int(mod(E12,E6)+0.5)
  82. %V%%R%int(F12/F6)
  83. %CO:G,4,38%
  84.  
  85. %V%%R%50
  86. %V%%R%if(G10>0,G10,"    ")
  87.  
  88. %V%%R%19
  89. %V%%R%if(G13>0,G13,"    ")
  90.  
  91. %V%%R%int(mod(F9,F3)+0.5)
  92. %V%%R%int(G9/G3)
  93.  
  94. %V%%R%int(mod(F12,F6)+0.5)
  95. %V%%R%int(G12/G6)
  96. %CO:H,4,34%
  97.  
  98. %V%%R%41
  99. %V%%R%if(H10>0,H10,"    ")
  100.  
  101. %V%%R%18
  102. %V%%R%if(H13>0,H13,"    ")
  103.  
  104. %V%%R%int(mod(G9,G3)+0.5)
  105. %V%%R%int(H9/H3)
  106.  
  107. %V%%R%int(mod(G12,G6)+0.5)
  108. %V%%R%int(H12/H6)
  109. %CO:I,4,30%
  110.  
  111. %V%%R%39
  112. %V%%R%if(I10>0,I10,"    ")
  113.  
  114. %V%%R%10
  115. %V%%R%if(I13>0,I13,"    ")
  116.  
  117. %V%%R%int(mod(H9,H3)+0.5)
  118. %V%%R%int(I9/I3)
  119.  
  120. %V%%R%int(mod(H12,H6)+0.5)
  121. %V%%R%int(I12/I6)
  122. %CO:J,4,26%
  123.  
  124. %V%%R%38
  125. %V%%R%if(J10>0,J10,"    ")
  126.  
  127. %V%%R%6
  128. %V%%R%if(J13>0,J13,"    ")
  129.  
  130. %V%%R%int(mod(I9,I3)+0.5)
  131. %V%%R%int(J9/J3)
  132.  
  133. %V%%R%int(mod(I12,I6)+0.5)
  134. %V%%R%int(J12/J6)
  135. %CO:K,4,22%
  136.  
  137. %V%%R%36
  138. %V%%R%if(K10>0,K10,"    ")
  139.  
  140. %V%%R%5
  141. %V%%R%if(K13>0,K13,"    ")
  142.  
  143. %V%%R%int(mod(J9,J3)+0.5)
  144. %V%%R%int(K9/K3)
  145.  
  146. %V%%R%int(mod(J12,J6)+0.5)
  147. %V%%R%int(K12/K6)
  148. %CO:L,4,18%
  149.  
  150. %V%%R%35
  151. %V%%R%if(L10>0,L10,"    ")
  152.  
  153. %V%%R%4
  154. %V%%R%if(L13>0,L13,"    ")
  155.  
  156. %V%%R%int(mod(K9,K3)+0.5)
  157. %V%%R%int(L9/L3)
  158.  
  159. %V%%R%int(mod(K12,K6)+0.5)
  160. %V%%R%int(L12/L6)
  161. %CO:M,4,14%
  162.  
  163. %V%%R%34
  164. %V%%R%if(M10>0,M10,"    ")
  165.  
  166. %V%%R%3
  167. %V%%R%if(M13>0,M13,"    ")
  168.  
  169. %V%%R%int(mod(L9,L3)+0.5)
  170. %V%%R%int(M9/M3)
  171.  
  172. %V%%R%int(mod(L12,L6)+0.5)
  173. %V%%R%int(M12/M6)
  174. %CO:N,4,10%
  175.  
  176. %V%%R%33
  177.  
  178.  
  179. %V%%R%2
  180. %V%%R%if(N13>0,N13,"    ")
  181.  
  182. %V%%R%int(mod(M9,M3)+0.5)
  183. %V%%R%int(N9/N3)
  184.  
  185. %V%%R%int(mod(M12,M6)+0.5)
  186. %V%%R%int(N12/N6)
  187. %CO:O,4,6%        
  188.  
  189. %V%%R%30
  190. %V%%R%if(O10>0,O10,"    ")
  191.  
  192. %V%%R%1
  193. %V%%R%if(O13>0,O13,"    ")
  194.  
  195. %V%%R%int(mod(N9,N3)+0.5)
  196. %V%%R%int(O9/O3)
  197.  
  198. %V%%R%int(mod(N12,N6)+0.5)
  199. %V%%R%int(O12/O6)
  200.